home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Demos / RealPool Demo / 3D.DAT / 00840.ls < prev    next >
Encoding:
Text File  |  1998-05-02  |  389 b   |  15 lines
  1. on dodo
  2.   set yu to the itemDelimiter
  3.   set the itemDelimiter to ":"
  4.   repeat with i = 861 to 878
  5.     set yu2 to the text of cast i
  6.     repeat with j = 1 to the number of lines in yu2
  7.       if length(line j of yu2) > 2 then
  8.         set the forecolor of item 1 of line j of yu2 to 10
  9.       end if
  10.     end repeat
  11.   end repeat
  12.   put the text of cast i = yu2
  13.   set the itemDelimiter to yu
  14. end
  15.